﻿Public Class BEQuestao
  Private _intId As Integer
  Private _intProvaId As Integer
  Private _strEnunciado As String
  Private _lstAlternativas As IList(Of BEAlternativa)
  Private _strRespostaDissertativa As String
  Private _booEhRespostaDissertativa As Boolean
  Private _intRespostaDissertativaCerta As Integer
  Private _intOrdem As Integer
  Private _tsTempo As TimeSpan

  Sub New()
    _intId = 0
    _intProvaId = 0
    _strEnunciado = ""
    _strRespostaDissertativa = ""
    _booEhRespostaDissertativa = False
    _intRespostaDissertativaCerta = True
    _lstAlternativas = Nothing
    _intOrdem = 0
  End Sub

  Sub New(ByVal intId As Integer)
    Me.New()
    _intId = intId
  End Sub

  Public Property Id() As Integer
    Get
      Return _intId
    End Get
    Set(ByVal value As Integer)
      _intId = value
    End Set
  End Property

  Public Property ProvaId() As Integer
    Get
      Return _intProvaId
    End Get
    Set(ByVal value As Integer)
      _intProvaId = value
    End Set
  End Property

  Public Property Enunciado() As String
    Get
      Return _strEnunciado
    End Get
    Set(ByVal value As String)
      _strEnunciado = value
    End Set
  End Property

  Public Property Alternativas() As IList(Of BEAlternativa)
    Get
      Return _lstAlternativas
    End Get
    Set(ByVal value As IList(Of BEAlternativa))
      _lstAlternativas = value
    End Set
  End Property

  Public Property RespostaDissertativa() As String
    Get
      Return _strRespostaDissertativa
    End Get
    Set(ByVal value As String)
      _strRespostaDissertativa = value
    End Set
  End Property

  Public Property EhDissertativa() As Boolean
    Get
      Return _booEhRespostaDissertativa
    End Get
    Set(ByVal value As Boolean)
      _booEhRespostaDissertativa = value
    End Set
  End Property

  Public Property RespostaDissertativaCerta() As Integer
    Get
      Return _intRespostaDissertativaCerta
    End Get
    Set(ByVal value As Integer)
      _intRespostaDissertativaCerta = value
    End Set
  End Property

  Public Property Ordem() As Integer
    Get
      Return _intOrdem
    End Get
    Set(ByVal value As Integer)
      _intOrdem = value
    End Set
  End Property

  Public Property Tempo() As TimeSpan
    Get
      Return _tsTempo
    End Get
    Set(ByVal value As TimeSpan)
      _tsTempo = value
    End Set
  End Property

End Class
